Labels:text | screenshot | font | menu OCR: Our solution to Outside Assignment 6 with text_io, calendar; use text_io, calendar; procedure tasking is interval constant duration := 5.0; total_intervals : constant positive := 9; start_time constant time := clock; quitting_time : constant time := start_time + total_intervals*interval; next_time : time := start_time; task type tick is ENTRY IDENTIFY (TASK_NUMBER : IN NATURAL); entry shutdown; end tick; T : ARRAY (1 .. 3) OF TICK; PERIOD : CONSTANT ARRAY(T' RANGE) OF POSITIVE := (2, 3, 4); TIMER : ARRAY (T' RANGE) OF NATURAL : = (OTHERS => 0); task body tick is begin quit : boolean := false; while not quit loop select ACCEPT IDENTIFY (TASK_NUMBER : IN NATURAL) DO PUT_LINE ("Task number" & INTEGER' IMAGE ( TASK_NUMBER) & " is starting."); END IDENTIFY; or accept shutdown; quit := true; end ...
(.png)
